home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
elk-2_0.lha
/
elk-2.0
/
src
/
stkmem.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-10-22
|
2KB
|
101 lines
/* Alloca simulation
*/
#include "scheme.h"
extern char *malloc();
char *Safe_Malloc (size) unsigned size; {
char *ret;
if ((ret = malloc (size)) == 0)
Primitive_Error ("not enough memory to malloc ~s bytes",
Make_Fixnum (size));
return ret;
}
#ifndef USE_ALLOCA
MEM_NODE *Mem_List;
char *Mem_Alloc (size) unsigned size; {
char *ret;
if ((ret = malloc (size)) == 0)
Fatal_Error ("not enough memory to malloc %u bytes", size);
return ret;
}
Free_Mem_Nodes (first) MEM_NODE *first; {
MEM_NODE *p;
while (p = first) {
first = first->next;
if (--p->refcnt == 0)
free ((char *)p);
}
}
Save_Mem_Nodes (cont) Object cont; {
unsigned sum = 0;
char *s;
MEM_NODE *p;
Object str;
GC_Node;
CONTROL(cont)->memlist = Mem_List;
for (p = Mem_List; p; p = p->next)
sum += p->len;
GC_Link (cont);
str = Make_String ((char *)0, sum);
CONTROL(cont)->memsave = str;
GC_Unlink;
for (p = Mem_List, s = STRING(str)->data; p; s += p->len, p = p->next) {
bcopy ((char *)(p+1), s, p->len);
p->refcnt++;
}
}
Restore_Mem_Nodes (cont) Object cont; {
MEM_NODE *p;
char *s;
Object str;
Free_Mem_Nodes (Mem_List);
Mem_List = CONTROL(cont)->memlist;
str = CONTROL(cont)->memsave;
for (p = Mem_List, s = STRING(str)->data; p; s += p->len, p = p->next) {
p->refcnt++;
bcopy (s, (char *)(p+1), p->len);
}
}
Object Save_GC_Nodes () {
Object vec;
register unsigned sum = 0, i = 0, n;
register GCNODE *p;
for (p = GC_List; p; p = p->next)
sum += p->gclen <= 0 ? 1 : p->gclen-1;
vec = Make_Vector (sum, Null);
for (p = GC_List; p; p = p->next, i += n) {
n = p->gclen <= 0 ? 1 : p->gclen-1;
bcopy ((char *)p->gcobj, (char *)&(VECTOR(vec)->data[i]),
n * sizeof (Object));
}
return vec;
}
Restore_GC_Nodes (vec) Object vec; {
register i = 0, n;
register GCNODE *p;
for (p = GC_List; p; p = p->next, i += n) {
n = p->gclen <= 0 ? 1 : p->gclen-1;
bcopy ((char *)&(VECTOR(vec)->data[i]), (char *)p->gcobj,
n * sizeof (Object));
}
}
#endif